unit TRefOrderFee;

interface

uses
  Windows, Classes, SysUtils, uDataTransferObject, uBasicDAOAdapter;

type
  TRefOrderFeeVO = class(TDataTransferObject)
  private
    FWorkNo: string;
    Fdistance: double;
    FdUnitPrice: double;
    FdistanceFee:double;
    FAccessoryFee:double;
    FItemFee:double;
    FTotalFee:double;
    FIndeedFee:double;
    FInfo1:String;
    FInfo2:String;
  published
    property PK_work_no: string index 0 read FWorkNo write FWorkNo;
    property distance: double index 1 read Fdistance write Fdistance;
    property dUnit_Price: double index 2 read FdUnitPrice write FdUnitPrice;
    property distance_Fee: double index 3 read FdistanceFee write FdistanceFee;
    property accessory_Fee: double index 4 read FAccessoryFee write FAccessoryFee;
    property item_Fee: double index 5 read FItemFee write FItemFee;
    property total_Fee: double index 6 read FTotalFee write FTotalFee;
    property indeed_Fee: double index 7 read FIndeedFee write FIndeedFee;
    property info1: String index 8 read FInfo1 write FInfo1;
    property info2: String index 9 read FInfo2 write FInfo2;
  public
    constructor Create;
    procedure Reset();
  end;

implementation

constructor TRefOrderFeeVO.Create;
begin
  inherited Create;
  tbName := 'inf_item_fee';
  SetLength(GridInfo, 5);
end;

procedure TRefOrderFeeVO.Reset();
begin
  FWorkNo:='-999';
  Fdistance:=-999;
  FdUnitPrice:=-999;
  FdistanceFee:=-999;
  FAccessoryFee:=-999;
  FItemFee:=-999;
  FTotalFee:=-999;
  FIndeedFee:=-999;
  FInfo1:='-999';
  FInfo2:='-999';
end;


end.
